object Form1: TForm1 Left = 26 Top = 26 ActiveControl = ScrollBox1 AutoScroll = False Caption = 'Power Source Card Maker' ClientHeight = 380 ClientWidth = 586 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 PixelsPerInch = 96 Position = poDefault WindowState = wsMaximized OnCreate = FormCreate OnMouseDown = IMAGEMouseDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp TextHeight = 16 object ToolBar: TPanel Left = 0 Top = 0 Width = 586 Height = 41 Align = alTop TabOrder = 0 object LineButton: TSpeedButton Left = 8 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333333300300003333333333333333003300003333 3333333333300333000033333333333333003333000033333333333330033333 0000333333333333003333330000333333333330033333330000333333333300 3333333300003333333330033333333300003333333300333333333300003333 3330033333333333000033333300333333333333000033333003333333333333 0000333300333333333333330000333003333333333333330000330033333333 3333333300003003333333333333333300003033333333333333333300003333 33333333333333330000} OnClick = LineButtonClick end object RectangleButton: TSpeedButton Left = 40 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033333333333333330300003033 3333333333333303000030333333333333333303000030333333333333333303 0000303333333333333333030000303333333333333333030000303333333333 3333330300003033333333333333330300003033333333333333330300003033 3333333333333303000030333333333333333303000030333333333333333303 0000303333333333333333030000303333333333333333030000303333333333 3333330300003033333333333333330300003000000000000000000300003333 33333333333333330000} OnClick = RectangleButtonClick end object EllipseButton: TSpeedButton Left = 72 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 3333330000003333003333330033330000003330333333333303330000003303 3333333333303300000030333333333333330300000030333333333333330300 0000033333333333333330000000033333333333333330000000033333333333 3333300000000333333333333333300000000333333333333333300000000333 3333333333333000000030333333333333330300000030333333333333330300 0000330333333333333033000000333033333333330333000000333300333333 003333000000333333000000333333000000} OnClick = EllipseButtonClick end object RoundRectButton: TSpeedButton Left = 104 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000 0033330000003300333333333300330000003033333333333333030000003033 3333333333330300000003333333333333333000000003333333333333333000 0000033333333333333330000000033333333333333330000000033333333333 3333300000000333333333333333300000000333333333333333300000000333 3333333333333000000003333333333333333000000003333333333333333000 0000303333333333333303000000303333333333333303000000330033333333 330033000000333300000000003333000000} OnClick = RoundRectButtonClick end object PenButton: TSpeedButton Left = 184 Top = 8 Width = 25 Height = 25 AllowAllUp = True GroupIndex = 2 Glyph.Data = { 66010000424D6601000000000000760000002800000015000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333339003333333333333333003334003333333333333330F00334003333 33333333330F0003300033333333333330F00033300033333333333300000333 3C00333333333330F0003333380033333333330F0003333330003333333330F0 003333333700333333330F0003333333370033333330F000333333333F003333 330F0003333333333700333330F00033333333333F0033330F00033333333333 37003330F0003333333333333700333000033333333333333000330F00333333 3333333337003300333333333333333337003033333333333333333337003333 33333333333333333700} OnClick = PenButtonClick end object BrushButton: TSpeedButton Left = 216 Top = 8 Width = 25 Height = 25 AllowAllUp = True GroupIndex = 3 Glyph.Data = { 66010000424D6601000000000000760000002800000013000000140000000100 040000000000F000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333F000030030000003333333337000033333330F0003333333B00003333 33330F000333333000003333333330F00033333700003333333330F000333330 00003333333300F00003333A0000333333300FF0000333370000333333300F00 00033337000033333300FF000000333E00003333330FF0000000333700003333 330FF00000003337000033333300F0000000333F000033333330000000033337 0000333333330FFF003333370000333333330FFF0033333F0000333333330FFF 0033333E0000333333330FFF0033333700003333333330000333333F00003333 33333333333333300000} OnClick = BrushButtonClick end object SpeedButton1: TSpeedButton Left = 256 Top = 8 Width = 25 Height = 25 AllowAllUp = True GroupIndex = 4 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 003337777777777777F330FFFFFFFFFFF03337F3333FFF3337F330FFFF000FFF F03337F33377733337F330FFFFF0FFFFF03337F33337F33337F330FFFF00FFFF F03337F33377F33337F330FFFFF0FFFFF03337F33337333337F330FFFFFFFFFF F03337FFF3F3F3F3F7F33000F0F0F0F0F0333777F7F7F7F7F7F330F0F000F070 F03337F7F777F777F7F330F0F0F0F070F03337F7F7373777F7F330F0FF0FF0F0 F03337F733733737F7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00 333337FFFFFFFF77333330000000000333333777777777733333} NumGlyphs = 2 OnClick = SpeedButton1Click end object paint: TSpeedButton Left = 288 Top = 8 Width = 25 Height = 25 AllowAllUp = True GroupIndex = 4 OnClick = paintClick end end object PenBar: TPanel Left = 0 Top = 82 Width = 586 Height = 41 Align = alTop TabOrder = 1 Visible = False object SolidPen: TSpeedButton Left = 8 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333700333333333333333333333000300000000000000000003F003333 33333333333333333000333333333333333333333000} OnClick = SetPenStyle end object DashPen: TSpeedButton Left = 40 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333700333333333333333333333000300000300000030000033F003333 33333333333333333000333333333333333333333000} OnClick = SetPenStyle end object DotPen: TSpeedButton Left = 72 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333003333333333333333333333003030303030303030303033003333 33333333333333333300333333333333333333333300} OnClick = SetPenStyle end object DashDotPen: TSpeedButton Left = 104 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333330003333333333333333333330003000003030000030300030003333 33333333333333333F00333333333333333333333700} OnClick = SetPenStyle end object DashDotDotPen: TSpeedButton Left = 136 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333003333333333333333333333003000003030300000303033003333 33333333333333333300333333333333333333333300} OnClick = SetPenStyle end object ClearPen: TSpeedButton Left = 168 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { B2000000424DB200000000000000760000002800000015000000050000000100 0400000000003C00000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333003333333333333333333333003FFFFFFFFFFFFFFFFFFF33003333 33333333333333333300333333333333333333333300} OnClick = SetPenStyle end object PenSize: TLabel Left = 448 Top = 12 Width = 7 Height = 16 Caption = '1' FocusControl = PenWidth end object PenColor: TColorGrid Left = 208 Top = 8 Width = 96 Height = 24 GridOrdering = go8x2 BackgroundEnabled = False TabOrder = 0 OnClick = PenColorClick end object PenWidth: TScrollBar Left = 320 Top = 12 Width = 121 Height = 17 LargeChange = 10 Min = 1 Position = 1 TabOrder = 1 OnChange = PenWidthChange end end object BrushBar: TPanel Left = 0 Top = 41 Width = 586 Height = 41 Align = alTop TabOrder = 2 Visible = False object SolidBrush: TSpeedButton Left = 8 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003000000000000000000300003000 0000000000000003000030000000000000000003000030000000000000000003 0000300000000000000000030000300000000000000000030000300000000000 0000000300003000000000000000000300003000000000000000000300003000 0000000000000003000030000000000000000003000030000000000000000003 0000300000000000000000030000300000000000000000030000300000000000 0000000300003000000000000000000300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object ClearBrush: TSpeedButton Left = 40 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033333333333333330300003033 3333333333333303000030333333333333333303000030333333333333333303 0000303333333333333333030000303333333333333333030000303333333333 3333330300003033333333333333330300003033333333333333330300003033 3333333333333303000030333333333333333303000030333333333333333303 0000303333333333333333030000303333333333333333030000303333333333 3333330300003033333333333333330300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object HorizontalBrush: TSpeedButton Left = 72 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033333333333333330300003000 0000000000000003000030333333333333333303000030333333333333333303 0000300000000000000000030000303333333333333333030000303333333333 3333330300003000000000000000000300003033333333333333330300003033 3333333333333303000030000000000000000003000030333333333333333303 0000303333333333333333030000300000000000000000030000303333333333 3333330300003033333333333333330300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object VerticalBrush: TSpeedButton Left = 104 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033033033033033030300003033 0330330330330303000030330330330330330303000030330330330330330303 0000303303303303303303030000303303303303303303030000303303303303 3033030300003033033033033033030300003033033033033033030300003033 0330330330330303000030330330330330330303000030330330330330330303 0000303303303303303303030000303303303303303303030000303303303303 3033030300003033033033033033030300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object FDiagonalBrush: TSpeedButton Left = 136 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033303330333033300300003033 0333033303330303000030303330333033303303000030033303330333033303 0000303330333033303330030000303303330333033303030000303033303330 3330330300003003330333033303330300003033303330333033300300003033 0333033303330303000030303330333033303303000030033303330333033303 0000303330333033303330030000303303330333033303030000303033303330 3330330300003003330333033303330300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object BDiagonalBrush: TSpeedButton Left = 168 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003003330333033303330300003030 3330333033303303000030330333033303330303000030333033303330333003 0000300333033303330333030000303033303330333033030000303303330333 0333030300003033303330333033300300003003330333033303330300003030 3330333033303303000030330333033303330303000030333033303330333003 0000300333033303330333030000303033303330333033030000303303330333 0333030300003033303330333033300300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object CrossBrush: TSpeedButton Left = 200 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033033033033033030300003000 0000000000000003000030330330330330330303000030330330330330330303 0000300000000000000000030000303303303303303303030000303303303303 3033030300003000000000000000000300003033033033033033030300003033 0330330330330303000030000000000000000003000030330330330330330303 0000303303303303303303030000300000000000000000030000303303303303 3033030300003033033033033033030300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object DiagCrossBrush: TSpeedButton Left = 232 Top = 8 Width = 25 Height = 25 GroupIndex = 1 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003000000000000000000300003033303330333033300300003003 0303030303030303000030303330333033303303000030030303030303030303 0000303330333033303330030000300303030303030303030000303033303330 3330330300003003030303030303030300003033303330333033300300003003 0303030303030303000030303330333033303303000030030303030303030303 0000303330333033303330030000300303030303030303030000303033303330 3330330300003003030303030303030300003000000000000000000300003333 33333333333333330000} OnClick = SetBrushStyle end object BrushColor: TColorGrid Left = 272 Top = 8 Width = 96 Height = 24 GridOrdering = go8x2 BackgroundEnabled = False TabOrder = 0 OnClick = BrushColorClick end end object StatusBar: TPanel Left = 0 Top = 339 Width = 586 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 3 object OriginPanel: TPanel Left = 0 Top = 0 Width = 185 Height = 41 Align = alLeft BevelInner = bvLowered TabOrder = 0 end object CurrentPanel: TPanel Left = 185 Top = 0 Width = 401 Height = 41 Align = alClient BevelInner = bvLowered TabOrder = 1 end end object ScrollBox1: TScrollBox Left = 0 Top = 123 Width = 586 Height = 216 Align = alClient TabOrder = 4 object Image: TImage Left = 0 Top = 0 Width = 584 Height = 214 Align = alClient AutoSize = True OnMouseDown = IMAGEMouseDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp end object Label1: TLabel Left = 104 Top = 56 Width = 4 Height = 16 Visible = False end end object Edit2: TEdit Left = 233 Top = 178 Width = 224 Height = 24 BorderStyle = bsNone TabOrder = 5 Visible = False end object MainMenu1: TMainMenu Left = 328 Top = 8 object File1: TMenuItem Caption = '&File' object New1: TMenuItem Caption = '&New' OnClick = New1Click ShortCutText = 'Ctrl+N' end object Open1: TMenuItem Caption = '&Open...' OnClick = Open1Click ShortCutText = 'Ctrl+O' end object Save1: TMenuItem Caption = '&Save' OnClick = Save1Click ShortCutText = 'Ctrl+S' end object Saveas1: TMenuItem Caption = 'Save &as...' OnClick = Saveas1Click end object Print1: TMenuItem Caption = '&Print' OnClick = Print1Click ShortCutText = 'Ctrl+P' end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' OnClick = Exit1Click end end object Edit1: TMenuItem Caption = '&Edit' object Cut1: TMenuItem Caption = 'Cu&t' OnClick = Cut1Click ShortCutText = 'Ctrl+X' end object Copy1: TMenuItem Caption = '&Copy' OnClick = Copy1Click ShortCutText = 'Ctrl+C' end object Paste1: TMenuItem Caption = '&Paste' OnClick = Paste1Click ShortCutText = 'Ctrl+V' end end end object OpenDialog1: TOpenDialog DefaultExt = 'bmp' Filter = 'Bitmap files (*.bmp)|*.bmp' Left = 368 Top = 8 end object SaveDialog1: TSaveDialog DefaultExt = 'bmp' Filter = 'Bitmap files (*.bmp)|*.bmp' Left = 408 Top = 8 end end